#
# This is the layout module, subroutines and variables defined herein
# are used to define the page layout.
#

# All perl modules must return true
return 1;

##################################################
# ts_pagestart
#
# Output the page html startup.
##################################################
sub ts_pagestart {
	# Modules used by this subroutine
	use CGI ":all";
	use CGI::Carp;
	use CGI::Pretty;

	# Subroutine Variables
	my $title	= shift @_;

	# Start subroutine
	print header({ -expires => 'now' });
	print start_html({
	        -title => $title,
	        -style => { 'src' => "base.css" },
	        -meta  => { "viewport" => "width=device-width, initial-scale=0.7" } });
	print center(h1($title));

	# End of subroutine
	return;
}

